150 A$ = "IF YOU TRY TO ENTER AN ILLEGAL CHARACTER":VT = 16: GOSUB 30
160 A$ = "A BLANK WILL APPEAR IN ITS PLACE.":VT = 17: GOSUB 30
170 A$ = "TOUCH ANY KEY TO CONTINUE-":VT = 20: GOSUB 30: GET A$
180 REM **** DEMO #2 ****
190 HOME : HGR : VTAB 22: HTAB 5: PRINT "HOW ABOUT A HANDY SALES CHART ?"
200 HPLOT 40,0 TO 40,140 TO 275,140: FOR X = 20 TO 116 STEP 24: FOR Y = 40 TO 270 STEP 10: HPLOT Y,X TO Y +1,X: NEXT Y,X
210 DRAW 47 AT 98,10:A$ = "COMPUTER SALES":VT = 1:HT = 16: GOSUB 30:T = -1: FOR Z = 100 TO 20 STEP -20:HT = 2:T = T +3:VT = T:A$ = STR$(Z): GOSUB 30: NEXT Z
220 B$ = "SALES IN THOUSANDS":T = 19: ROT= 48: FOR Z = 1 TO 18:A$ = MID$ (B$,Z,1):T = T -1:VT = T:HT = 0: GOSUB 30: NEXT Z: ROT= 0
230 A$ = "J F M A M J J A S O N D":VT = 18:HT = 6: GOSUB 30
240 HPLOT 42,100 TO 63,50 TO 84,40 TO 105,55 TO 126,60 TO 147,20 TO 168,25 TO 189,50 TO 210,70 TO 231,30 TO 252,35 TO 273,25
250 HOME : VTAB 22: HTAB 6: PRINT "TOUCH ANY KEY TO CONTINUE >";: GET A$: PRINT
260 REM **** DEMO #3 ****
270 HOME : HGR2 :A$ = "ANYBODY FOR A GAME OF CARDS ?":VT = 0:HT = 5: GOSUB 30
280 B$ = "A500K4852510Q4958485A4854500":B = 1
290 FOR Z = 0 TO 240 STEP 40: GOSUB 440: HCOLOR= 0
300 POKE 25, ASC( MID$ (B$,B,1)): CALL 37567
310 DRAW PEEK(25) AT Z +5,53: DRAW VAL( MID$ (B$,B +1,2)) AT Z +12,56: ROT= 32: DRAW PEEK(25) AT Z +32,107: DRAW VAL( MID$ (B$,B +1,2)) AT Z +25,104: ROT= 0
320 B = B +4: NEXT Z: HCOLOR= 3: HPLOT 0,150 TO 0,190 TO 279,190 TO 279,150 TO 0,150
420 DRAW PEEK(25) AT X,Y:Z = Z +1: ON (Z = 15) GOTO 430:X = X +10:Y = Y -10: GOTO 410
430 GET K$: TEXT : HOME : END
440 HCOLOR= 3: FOR A = Z TO Z +37: HPLOT A,50 TO A,110: NEXT A: HCOLOR= VAL( MID$ (B$,B +3,1)): FOR A = Z +4 TO Z +32: HPLOT A,65 TO A,95: NEXT A: RETURN
450 REM THIS ROUTINE READS THE SHAPE TABLE,AND SETS POINTERS
480 A$ = "0123456789 ABCDEFGHIJKLMNOPQRSTUVWXYZ?.,!'+-=$":Y = 37585: FOR X = 1 TO LEN(A$): POKE Y, ASC( MID$ (A$,X,1)):Y = Y +1: NEXT X: REM POKE ASC VALUE TABLE INTO MEMORY
490 FOR X = 37567 TO 37583: READ Y: POKE X,Y: NEXT : RETURN
500 DATA 162,46,189,208,146,197,25,240,5,202,208,246,162,11,134,25,96